home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amiga / rexxecute / examples / phonebook.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-06-09  |  353 b   |  16 lines
  1. /* A simple telephone phone book to    */
  2. /* demonstrate compound variables      */
  3.  
  4. if arg() ~= 1 then do
  5.    say "USAGE: phonebook name"
  6.    exit 5
  7.    end
  8.  
  9. number.      = '(not found)'
  10. number.bill  = '(617) 568-8695'
  11. number.amiga = '(215) 431-9100'
  12. /* (your numbers here)        */
  13.  
  14. arg name       /* the name    */
  15. say name||"'s number is" number.name
  16.